mydata = read.table("tempData.dat", skip=3)

calcDCPU <- function(data){
average = mean(data[,'V11'])
return (100 - average)
}


print(calcDCPU(mydata))
plot(100 -mydata[,'V11'],pch=11,type='b')
